home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Video
/
World of Video.iso
/
programs
/
wb
/
iconimage
/
makedraws4icons
< prev
next >
Wrap
Text File
|
1995-02-13
|
475b
|
24 lines
;Script to create directories for Drawer Icons.
FailAt 11
c:Ask "*nThis script creates drawers for draw icons.*nDo you want to proceed ?"
If Not Warn
Quit
EndIf
Set Script t:MakeDirs
Set Drawer `c:RequestFile Title="Select Icon Drawer" DRAWERSONLY`
Echo "*nGetting names..."
c:List $Drawer LFormat="MakeDir $Drawer%m" Sub=".info" >$Script
Echo "*nCreating Drawers"
c:Execute $Script
c:Delete $Script >NIL:
UnSet Drawer
UnSet Script
Echo "*nProcess complete."